10 REM STEUERPROG
20 :
30 PRINT"[147]"
40 SYS 57812 "SETUP",8:POKE 780,0
50 POKE 781,0:POKE 782,192:SYS 65493
60 SYS 57812 "DATAPART",8:POKE 780,0
70 POKE 781,0:POKE 782,32:SYS 65493
80 SYS 57812 "MAIN ROUTS",8:POKE 780,0
90 POKE 781,68:POKE 782,197:SYS 65493
100 POKE 10287,92:POKE 808,225
110 POKE 53280,0:POKE53281,0
120 GOTO 460
130 :
140 REM PUT ON SCREEN
150 :
160 POKE 53272,24:POKE 198,0
170 PRINT"[152][147]   [203]ONZIPIERT FUER ";
180 PRINT"KLEINERE [193]RBEITEN,"
190 PRINT"   DIE GUT AUSSEHEN SOLLEN :"
200 POKE 55334,0:POKE 56096,0
210 PRINT"            [212][216]-[215][207][210][203][197][210]"
220 PRINT SPC(8) "(1) [212]EXT LOESCHEN"
230 PRINT SPC(8) "(2) [212]EXT SPEICHERN"
240 PRINT SPC(8) "(3) [212]EXT LADEN"
250 PRINT SPC(8) "(4) [212]EXT DRUCKEN"
260 PRINT SPC(8) "(5) [212]EXT BEARBEITEN"
270 PRINT SPC(8) "(6) [196]ISK [201]NHALT"
280 PRINT SPC(8) "==================="
290 PRINT"  [193]USWAHL 1 - 6"
300 GET A$:IF A$="" THEN 300
310 IF A$="1" THEN GOTO 410
320 IF A$="2" THEN GOTO 570
330 IF A$="3" THEN GOTO 680
340 IF A$="4" THEN GOTO 800
350 IF A$="5" THEN GOTO 990
360 IF A$="6" THEN GOTO 500
370 F$="[198]ALSCHE [212]ASTE ":GOSUB 1080
380 POKE 51,0:POKE 52,160
390 GOTO 300
400 :
410 REM CLEAR THE TEXT
420 PRINT" -=*>";:SYS10240
430 PRINT"[158][215]IRKLICH LOESCHEN?"
440 GET A$:IF A$="" THEN 440
450 IF A$<>"J" THEN 480
460 SYS 10278
470 POKE 12288,9:POKE 12289,48
480 GOTO 140
490 :
500 REM DIRECTORY
510 PRINT"[147][155]     [196]IRECTORY"
520 SYS 11008 "$:*",8
530 PRINT"       [212]ASTE !":POKE198,0
540 GETB$:IF B$="" THEN 540
550 GOTO 140
560 :
570 REM SAVE THE TEXT
580 PRINT" -=*>";:SYS10240
590 GOSUB 1140 :REM FILENAME
600 POKE 193,0 :REM BEI $3000
610 POKE 194,48
620 POKE 174,PEEK(12288)+10
630 POKE 175,PEEK(12289)
640 SYS 62954
650 GOSUB 1330
660 GOTO 140
670 :
680 REM LOAD THE TEXT
690 PRINT" -=*>";:SYS10240
700 PRINT"     [215]IRKLICH LADEN ?"
710 GET A$:IF A$="" THEN 710
720 IF A$<>"J" THEN 780
730 GOSUB 1140 :REM FILENAME
740 POKE 780,0
750 POKE 781,0:POKE782,48
760 SYS 65493
770 GOSUB 1330
780 GOTO 140
790 :
800 REM
810 PRINT" -=*>";:SYS10240
820 OPEN4,4,1:A=1
830 PRINT"[144][147] [158][196]RUCKER EINSCHALTEN"
840 PRINT" UND [207][206][204][201][206][197] SETZEN"
850 PRINT"[159] [215]IEVIELE [193]BZUEGE ? (+/-)"
860 PRINTA
870 GETA$:IF A$=""THEN870
880 IF A$="+" THEN A=A+1
890 IF A$="-" THEN A=A-1
900 IF A$=CHR$(13) THEN 940
910 IF A<1 THEN A=1
920 PRINT"[145]"A"[157]     ":GOTO 870
930 :
940 IF A<=1 THEN SYS 52416:GOTO 970
950 SYS 52416:PRINT#4,CHR$(12)
960 A=A-1:PRINT"[145][145]NR"A:IF A>0 THEN 950
970 CLOSE4:GOTO140
980 :
990 REM
1000 PRINT"[147]"
1010 PRINT" [198]1: (HEX)NR [197]INGABE [198]3: [201]DENTIFIZIEREN"
1020 PRINT" [198]5: [211]PEZIALZEICHEN  [198]7: [200]ILFSMENUE"
1030 PRINT" SHIFT+CTRL+COMMO => [205]ENUE "
1040 PRINT" CTRL = FONT  COMMO = FORM";
1050 SYS 50500
1060 GOTO 140
1070 :
1080 REM
1090 PRINT"";F$
1100 FORX=0TO 900:NEXTX
1110 PRINT"[145]                      "
1120 RETURN
1130 :
1140 REM
1150 B$="":PRINT""
1160 PRINT" [212]EXTNAME "
1170 PRINT SPC(10)"----------------[145][145]"
1180 PRINT SPC(9)":";
1190 SYS10240:FORX=0TO15
1200 FORX=0TO15
1210 GET C$:IF C$="" THEN 1210
1220 IF C$=CHR$(13) THEN 1300
1230 IF C$=CHR$(34) THEN 1210
1240 IF C$=CHR$(44) THEN 1210
1250 IF C$=CHR$(64) THEN 1150
1260 IF ASC(C$)<32 THEN 1210
1270 IF ASC(C$)>95 THEN 1210
1280 PRINTC$;:B$=B$+C$
1290 NEXT X
1300 IF B$="" THEN 1320
1310 SYS 57812 B$,8 :REM TRANS FNAME
1320 RETURN
1330 :
1340 OPEN 15,8,15:INPUT#15,X,C$
1350 CLOSE15:F$=STR$(X)+" "+C$
1360 GOTO 1080
1370 :